/* GUI CONVERTED from recwoiq.i (converter v1.76) Tue Oct  2 12:13:50 2001 */
/* recwoiq.i - REPETITIVE                                                     */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.7 $                                                           */
/* CUM WORKORDER INQUIRY INCLUDE                                              */
/* REVISION: 7.3      LAST MODIFIED: 10/31/94   BY: WUG *GN77*                */
/* REVISION: 7.3      LAST MODIFIED: 03/29/95   BY: dzn *F0PN*                */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane          */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan         */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* myb                */
/* Revision: 1.6      BY: Hualin Zhong          DATE: 05/31/01 ECO: *N0YY*    */
/* $Revision: 1.7 $   BY: Robin McCarthy        DATE: 10/01/01 ECO: *P025*    */

/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/*V8:ConvertMode=Report                                                       */

/* ********** Begin Translatable Strings Definitions ********* */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

&SCOPED-DEFINE recwoiq_i_1 "Start Eff"
/* MaxLen: Comment: */

&SCOPED-DEFINE recwoiq_i_4 "End Eff"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

if wo_status = "c" then wostatus = getTermLabel("CLOSED",9).
else do:
   if wo_due_date < today then wostatus = getTermLabel("EXPIRED",9).
   else wostatus = getTermLabel("ACTIVE",9).
end.

display
   wo_site
   wo_part
   wo_line
   wo_lot
   wo_rel_date column-label {&recwoiq_i_1}
   wo_due_date column-label {&recwoiq_i_4}
   wostatus format "x(9)"
with width 80 no-attr-space STREAM-IO /*GUI*/ .
